home *** CD-ROM | disk | FTP | other *** search
- //Language: Visual Basic
- //Copyright (c) 1992-2002 Altium Limited
- //All rights reserved.
- //http://www.dream-com.com
- //contact@dream-com.com
-
- // states
- State=snormal
- State=sstring
- State=scomment1
- State=scomment2
- State=sdirective
- // tokens
- Token=tnone
- Token=tstring
- Token=tcomment
- Token=tident
- Token=tinteger
- Token=tfloat
- Token=tresword
- Token=tassembler
- Token=turl
- Token=twhitespace
- Token=tdirective
- //delims
- Delimiters=;.,:'"{}[]()?!@#$%^&*-+=|\/
-
- // reswords
- snormal 'addressof' snormal tresword
- snormal 'and' snormal tresword
- snormal 'appactivate' snormal tresword
- snormal 'as' snormal tresword
- snormal 'base' snormal tresword
- snormal 'beep' snormal tresword
- snormal 'binary' snormal tresword
- snormal 'byref' snormal tresword
- snormal 'byval' snormal tresword
- snormal 'call' snormal tresword
- snormal 'case' snormal tresword
- snormal 'chdir' snormal tresword
- snormal 'chdrive' snormal tresword
- snormal 'close' snormal tresword
- snormal 'compare' snormal tresword
- snormal 'const' snormal tresword
- snormal 'date' snormal tresword
- snormal 'declare' snormal tresword
- snormal 'deftype' snormal tresword
- snormal 'deletesetting' snormal tresword
- snormal 'dim' snormal tresword
- snormal 'do' snormal tresword
- snormal 'each' snormal tresword
- snormal 'else' snormal tresword
- snormal 'empty' snormal tresword
- snormal 'end' snormal tresword
- snormal 'enum' snormal tresword
- snormal 'eqv' snormal tresword
- snormal 'erase' snormal tresword
- snormal 'error' snormal tresword
- snormal 'event' snormal tresword
- snormal 'exit' snormal tresword
- snormal 'explicit' snormal tresword
- snormal 'false' snormal tresword
- snormal 'filecopy' snormal tresword
- snormal 'for' snormal tresword
- snormal 'friend' snormal tresword
- snormal 'function' snormal tresword
- snormal 'get' snormal tresword
- snormal 'gosub' snormal tresword
- snormal 'goto' snormal tresword
- snormal 'if' snormal tresword
- snormal 'imp' snormal tresword
- snormal 'implements' snormal tresword
- snormal 'input' snormal tresword
- snormal 'is' snormal tresword
- snormal 'kill' snormal tresword
- snormal 'len' snormal tresword
- snormal 'let' snormal tresword
- snormal 'like' snormal tresword
- snormal 'line' snormal tresword
- snormal 'load' snormal tresword
- snormal 'lock' snormal tresword
- snormal 'loop' snormal tresword
- snormal 'lset' snormal tresword
- snormal 'me' snormal tresword
- snormal 'mid' snormal tresword
- snormal 'mkdir' snormal tresword
- snormal 'mod' snormal tresword
- snormal 'name' snormal tresword
- snormal 'new' snormal tresword
- snormal 'next' snormal tresword
- snormal 'not' snormal tresword
- snormal 'nothing' snormal tresword
- snormal 'null' snormal tresword
- snormal 'on' snormal tresword
- snormal 'open' snormal tresword
- snormal 'option' snormal tresword
- snormal 'optional' snormal tresword
- snormal 'or' snormal tresword
- snormal 'paramarray' snormal tresword
- snormal 'print' snormal tresword
- snormal 'private' snormal tresword
- snormal 'property' snormal tresword
- snormal 'public' snormal tresword
- snormal 'put' snormal tresword
- snormal 'raiseevent' snormal tresword
- snormal 'randomize' snormal tresword
- snormal 'redim' snormal tresword
- //snormal 'rem' snormal tresword
- snormal 'reset' snormal tresword
- snormal 'resume' snormal tresword
- snormal 'return' snormal tresword
- snormal 'rmdir' snormal tresword
- snormal 'rset' snormal tresword
- snormal 'savepicture' snormal tresword
- snormal 'savesetting' snormal tresword
- snormal 'seek' snormal tresword
- snormal 'select' snormal tresword
- snormal 'sendkeys' snormal tresword
- snormal 'set' snormal tresword
- snormal 'setattr' snormal tresword
- snormal 'static' snormal tresword
- snormal 'step' snormal tresword
- snormal 'stop' snormal tresword
- snormal 'string' snormal tresword
- snormal 'sub' snormal tresword
- snormal 'then' snormal tresword
- snormal 'time' snormal tresword
- snormal 'to' snormal tresword
- snormal 'true' snormal tresword
- snormal 'type' snormal tresword
- snormal 'unload' snormal tresword
- snormal 'unlock' snormal tresword
- snormal 'wend' snormal tresword
- snormal 'while' snormal tresword
- snormal 'width' snormal tresword
- snormal 'with' snormal tresword
- snormal 'withevents' snormal tresword
- snormal 'write' snormal tresword
- snormal 'xor' snormal tresword
-
- // numbers
- snormal [1-9][0-9]* snormal tinteger
- snormal [1-9][0-9]*\.[0-9]* snormal tfloat
- snormal [1-9][0-9]*{\.[0-9]+}|e{[\+\-]}|[0-9]+ snormal tfloat
-
- //idents
-
- snormal [a-z_A-Z][a-z_A-Z0-9]* snormal tident
-
- //white space
- snormal #32* snormal twhitespace
-
- //comments
- snormal \' scomment1 tcomment
- scomment1 [#1-#255]* snormal tcomment
- snormal rem[^#33-#255] scomment2 tcomment
- scomment2 [#1-#255]* snormal tcomment
- scomment1 $ snormal tcomment
- scomment2 $ snormal tcomment
-
-
- //strings
- snormal \" sstring tstring
- sstring [^\"]* sstring tstring
- sstring \" snormal tstring
- sstring \"\" sstring tstring
- sstring $ snormal tstring
-
- //directives
- snormal \# sdirective tdirective
- sdirective [#1-#255]* snormal tdirective
- sdirective $ snormal tdirective
-
-